Habe mir eine kleine Userform entwickelt und hätte jetzt gerne, dass nur die Userform auf einem PC angezeigt wird, die entsprechende Exceltabelle, aber im Hintergrund bleibt und nicht von Dritten bearbeitet werden kann.
danke
Private Sub Workbook_Open()
Application.Visible = False
Umsatz1.Show ' UserForm-Name anpassen
End Sub
>code>Um eine Excel Userform anzuzeigen und die Excel-Datei im Hintergrund geöffnet, aber nicht sichtbar zu halten, kannst Du die folgenden Schritte befolgen:
Öffne den Visual Basic for Applications (VBA) Editor:
ALT + F11
, um den VBA-Editor zu öffnen.Füge ein neues Modul hinzu:
Einfügen
> Modul
.Kopiere den folgenden Code in das Modul:
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show ' Hier den Namen deiner Userform anpassen
End Sub
Stelle sicher, dass Du den Namen UserForm1
durch den tatsächlichen Namen Deiner Userform ersetzt.
Setze die Eigenschaft ShowModal:
ShowModal = True
, damit die Userform immer im Vordergrund bleibt.Speichere die Arbeitsmappe:
Excel-Makro-fähige Arbeitsmappe (*.xlsm)
speicherst.Teste die Userform:
Die Userform wird nicht angezeigt:
ShowModal
auf True
gesetzt ist.Excel-Anwendung bleibt sichtbar:
Workbook_Open
-Ereignis. Stelle sicher, dass Application.Visible = False
korrekt gesetzt ist.Falls Du eine andere Methode zur Anzeige der Userform in Excel VBA ausprobieren möchtest, kannst Du auch eine Schaltfläche in einem Arbeitsblatt erstellen, die die Userform öffnet und gleichzeitig die Excel-Anwendung unsichtbar macht. Hier ein Beispiel:
Weise der Schaltfläche ein Makro zu, das den folgenden Code enthält:
Sub Button_Click()
Application.Visible = False
UserForm1.Show
End Sub
Hier ist ein einfaches Beispiel für eine Userform, die einen Textfeld und einen Button enthält:
TextBox1
) und einem Button (CommandButton1
).Füge den folgenden Code in die Userform ein:
Private Sub CommandButton1_Click()
MsgBox "Du hast eingegeben: " & TextBox1.Text
Application.Visible = True ' Excel wieder sichtbar machen
Unload Me ' Schließt die Userform
End Sub
Mit diesem Beispiel kannst Du die Userform testen und die Eingabe des Benutzers verarbeiten.
Nutze die Workbook_BeforeClose
-Ereignisprozedur, um die Excel-Anwendung wieder sichtbar zu machen, bevor die Datei geschlossen wird.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub
Experimentiere mit der Anpassung der Userform, um sie benutzerfreundlicher zu gestalten, z.B. durch Hinzufügen von Labels oder weiteren Steuerelementen.
1. Kann ich die Excel-Anwendung wieder sichtbar machen, nachdem die Userform geschlossen wurde?
Ja, Du kannst Application.Visible = True
im Code der Userform einfügen, um Excel sichtbar zu machen, nachdem die Userform geschlossen wurde.
2. Funktioniert das auch in Excel 2016 und neueren Versionen? Ja, die beschriebenen Schritte und der VBA-Code funktionieren auch in Excel 2016 und neueren Versionen, solange Du die Datei als Makro-fähige Arbeitsmappe speicherst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen