Zoom, Unprotect-error in 2016

Cosmo · #1 10-18-2016, 05:39 AM

I remember having a similar problem a while ago, not sure what it was that fixed it, but try adding this code before the 'Unprotect'

Quote:

If Activedocument.ActiveWindow.View.SplitSpecial = wdPaneNone Then
Activedocument.ActiveWindow.ActivePane.View.Type = wdPrintView
Else
Activedocument.ActiveWindow.View.Type = wdPrintView
End If

anderjoa · #2 10-18-2016, 07:52 AM

Thanks a lot! This helps!

Activedocument.ActiveWindow.ActivePane.View.Type = wdPrintView
Activedocument.ActiveWindow.View.Type = wdPrintView

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Onenote 2016 is not syncing - Error code: 0x2	clumps19	OneNote	0	08-15-2016 05:09 PM
Unprotect Cells	Cardinal2	Excel Programming	2	01-06-2015 05:15 PM
ADD in That can unprotect the documents.	aligahk06	Word	0	07-12-2010 04:55 AM
Unprotect header in Word	Fran	Word	0	12-23-2008 03:42 AM