1.ich hoffe ihr könnt mir helfen unzwar habe ich zwei Makros die mir ermöglichen alle Arbeitsmappen auf einmal mit einem Kennwort zu versehen und wieder zu entfernen. Jetzt möchte ich die aber beide einem Symbol zuordnen so das ich beim ersten klick aufschließe und bei einem weiteren klick wieder abschließe.Jetzt möcht ich dei beiden zu einem zusammenfassen so das ich es komplett einem Symbol zur Ausführung zuordnen kann.
2.Dann habe ich noch ein anliegen ich möcht den schutz so setzten das man gesperrt zellen nicht mehr selektieren kann, so das man nur zellen selktieren kann die frei sind. Ich hoffe ihr versteht meinen Probleme
zu 1.
Sub Schutz_ein() Dim intSheet As Integer Application.ScreenUpdating = False 'Blaetter schuetzen: For intSheet = 1 To Worksheets.Count Worksheets(intSheet).Protect "DeinPasswort" Next intSheet Application.ScreenUpdating = True End Sub
Sub Schutz_aus()
Dim intSheet As Integer
Dim strPass As String
On Error GoTo ErrEnd
strPass = InputBox("Das Passwort bitte")
Application.ScreenUpdating = False
'Blattschutz aufheben:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Unprotect strPass
Next intSheet
Application.ScreenUpdating = True
ErrEnd:
Err.Clear
End Sub