Dialog "Schreibchutz aufheben" öffnen
29.12.2013 18:34:28
Marc
Hallo zusammen,
Wenn ich unter "Speichern unter" - "Tools" - "Allgemeine Optionen" ein Passwort zum Ändern der _
Arbeitsmappe eingebe und ich jetzt die Arbeitsmappe "schreibgeschützt" öffne. Wie kann ich diesen Dialog wieder aufrufen bzw. den Schutz wieder einsetzten.
Wollte das ganze in den ToggleButton mit einbauen...
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Sperren"
Else
TB.Caption = "Entsperren"
End If
If TB.Value = True Then
ToggleButton1.ForeColor = vbRed
Else
ToggleButton1.ForeColor = vbBlack
End If
End Sub
Danke für Hilfe und Gruß