Clever-Excel-Forum

(07.04.2019, 10:30)schauan schrieb: [ -> ]Hallöchen,

Du könntest für Dich mit kurzen Makros die Events abschalten und nach getaner Arbeit wieder anschalten. Dann sollte auch nicht mehr das Sperren greifen, wenn das in einem Change-Event vorkommt.

Im Prinzip so:

Sub EventsAus()
Application.EnableEvents = False
End Sub

Sub EventsAn()
Application.EnableEvents = True
End Sub

Servus,

der anhalten funktioniert super. habe das  so eingebaut:

Sub Aufheben()
Application.EnableEvents = False
Dim StrEing As String
StrEing = InputBox("Passwort")
On Error GoTo Errorhandler
For I = 1 To Sheets.Count
Sheets(I).Unprotect StrEing
Next I
Exit Sub
Errorhandler:
MsgBox "Falsches Passwort"
End Sub


Beim Sperren funktioniert es nicht. Das Makro wird nicht aktiviert, und wenn man eine Eingabe macht kommt Fehler "Die Methode Unprotect  für das Objekt Worksheet ist fehlgeschlagen"
So sieht das Makro aus:

Sub Schutz()
Dim StrEing As String
StrEing = InputBox("Passwort")
For I = 1 To Sheets.Count
Sheets(I).Protect StrEing
Next I
MsgBox "Alle Blätter wurden geschützt"
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
Application.DisplayAlerts = True
Exit Sub
End Sub

Hallöchen,
Das Schutz-Makro hat aber protect und nicht unprotect?

Das ist das Makro für den Zellschutz (also das Makro was angehalten wird bei entfernen des Blattschutzes). Ohne Me.Unprotect funktioniert es nicht

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Me.Unprotect "1234"
If VBA.IsEmpty(Target) Then
Target.Locked = False
Else
Target.Locked = True
End If
Me.Protect "1234"
End Sub

Hallöchen,

aber die Passwörter sind gleich? Wenn Du manuell ein Passwort eingibst und an anderer Stelle eins fest programmiert hast, können schon mal Differenzen auftreten.

Ja. Habe ich jetzt mehrfach geschaut. Der Fehler tritt auf sobald die Datei geschützt und Freigegeben wird.

Hallöchen,

ja, das ist dann ein Problem. In freigegebenen Mappen geht nicht alles

Ich glaube das Thema hat sich erledigt, da das Makro in einer Freigegebenen Datei nicht funktioniert