PDA

Vollständige Version anzeigen : Alle blätter schützen in xlsx


Hamtob
01.09.2017, 10:45
Hallo, ich habe diese makros gefunden zum schnelleren schützen aller blätter (ohne jedes einzeln zu schützen)
Wie kann ich sie auf xlsx anwenden (also ohne die datei als makro abspeichern zu müssen?
(sorry, anfängerfrage)

lg tob


Sub Protect_sheets()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd
Next wSheet

End Sub


Entsperren:

Sub UnProtectAll()

Dim wSheet As Worksheet

Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")

On Error Resume Next

For Each wSheet In Worksheets

wSheet.Unprotect Password:=Pwd

Next wSheet

If Err <> 0 Then

MsgBox "You have entered an incorrect password. All worksheets could not " & _

"be unprotected.", vbCritical, "Incorrect Password"

End If

On Error GoTo 0

End Sub

Hajo_Zi
01.09.2017, 15:46
lege das Makro in der Personal.xlsb ab-

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>