Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/protect_all_sheets.bas

Created July 22, 2017 13:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/2259d8f2303c0208f4433ec86d7f9925 to your computer and use it in GitHub Desktop.
Save ndthanh/2259d8f2303c0208f4433ec86d7f9925 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
protect_all_sheets.bas
Sub protect_all_sheets()
top:
pass = InputBox("password?")
repass = InputBox("Verify Password")
If Not (pass = repass) Then
MsgBox "you made a boo boo"
Goto top
End If
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then Goto oops
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=pass
Next
Exit Sub
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro."
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment