VBA: UserForm öffnen + schließen

Computer: Software & Programmierung Office Software
1

Hallo,

als VBA-Anfänger brauche ich mal Eure Hilfe:

Ich möchte gerne, daß beim Laden des Workbooks automatisch die
UserForm angezeigt wird und das Beenden Passwort geschützt wird.

Kann mir jemand weiterhelfen oder ein paar Ansätze geben?

Danke und Grüße,
stephy

2

zu1.

private sub workbook_open()
deinUserformname.show
end sub
zu2. willst du ein Kennwort für die Datei ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
ThisWorkbook.Password = „kennwort“
Application.Quit
Application.DisplayAlerts = True
End Sub

displayalerts = zeigespeicherbestätigung oder nicht[muss am Ende wieder auf Treu gesetzt werden,da es diese in anderen Dateien auch nicht mehr anzeigt]
save = speichern
Quit = Excell beenden

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

zu2. willst du ein Kennwort für die Datei ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
ThisWorkbook.Password = „kennwort“
Application.Quit
Application.DisplayAlerts = True
End Sub

displayalerts = zeigespeicherbestätigung oder nicht[muss am
Ende wieder auf Treu gesetzt werden,da es diese in anderen
Dateien auch nicht mehr anzeigt]
save = speichern
Quit = Excell beenden

Hi Spaguzzi,
wenn

Application.Quit

Excel beendet, meinst du dass dann

Application.DisplayAlerts = True

noch ausgeführt wird?
Habs jetzt nicht probiert, glaube aber nicht.
Gruß
Reinhard

4

da muss ich dir Recht geben.
diese beiden Zeieln gehören vertauscht.
hab den Code nicht getestet gehabt.

Sory

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]