Blattschutz richtig setzen

Forumthread: Blattschutz richtig setzen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Blattschutz richtig setzen

Heinz

Guten morgen, im Forum
Habe einen Butten der mir ein Makro aufruft.
Wenn ich nun auf Nein klicke, wird der Blattschutz nicht mehr gesetzt.
Könnte mir bitte jemand helfen ?
Gruß
Heinz

If monat = False Then
If MsgBox("Wollen Sie ein neues Monat erstellen ?", vbQuestion + vbYesNo, _
" Nachfrage Neues Monat erstellen !") = vbNo Then End 'Exit Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Blattschutz richtig setzen

Hajo_Zi
AW: Blattschutz richtig setzen

Heinz
AW: Blattschutz richtig setzen

Hajo_Zi
AW: Blattschutz richtig setzen

Heinz

AW: Blattschutz richtig setzen

24.04.2010 10:52:49

Hajo_Zi

Hallo Heinz,
warum sollte er auch gesetzt werden, mit Exit Sub wird die Prozedur verlassen.

AW: Blattschutz richtig setzen

24.04.2010 10:57:01

Heinz

Guten morgen Hajo
Wie würde es dann bitte richtig gehören.
Eventuell mit Unload me oder so ?
Heinz

AW: Blattschutz richtig setzen

24.04.2010 11:01:58

Hajo_Zi

Hallo Heinz
If monat = False Then
If MsgBox("Wollen Sie ein neues Monat erstellen ?", vbQuestion + vbYesNo, _
" Nachfrage Neues Monat erstellen !") = vbNo Then
ActiveSheet.Protect
End 'Exit Sub
End if
Ich habe es falsch gesehen nicht Exit Sub sondern End, damit werden alle Makros beendet.
Gruß Hajo

AW: Blattschutz richtig setzen

24.04.2010 11:04:53

Heinz

Hallo Hajo
Recht herzlichen Dank
Gruß
Heinz