Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Die EXEL Arbeitsmappe verbergen

Betrifft: Die EXEL Arbeitsmappe verbergen von: Alex
Geschrieben am: 14.11.2012 12:57:29

Ist es möglich, dass wenn ich auf eine Verknüpfung meiner .xlsm Datei klicke dass dann nur mein Userform erscheint und nicht Alle Tabellen die dazu gehöhren
Mfg Alex

  

Betrifft: AW: Die EXEL Arbeitsmappe verbergen von: Rudi Maintaire
Geschrieben am: 14.11.2012 13:09:09

Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_Open()
  Windows(Name).Visible = False
  UserForm1.Show
End Sub

Gruß
Rudi


  

Betrifft: AW: Die EXEL Arbeitsmappe verbergen von: Klaus M.vdT.
Geschrieben am: 14.11.2012 13:11:34

ja.
blende die Tabellen einfach aus. Eine muss stehen bleiben, aber die kannst du ja schwarz ausfüllen oder ein lustiges Bild einfügen.

ZB so, wenn du nur Tabelle1 stehen lassen möchtest:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
Dim sOnlyWks As String
Dim i As Integer

sOnlyWks = "Tabelle1"

For i = 1 To ActiveWorkbook.Sheets.Count
    Set wks = Sheets(i)
    If wks.Name = sOnlyWks Then
        wks.Visible = True
    Else
        wks.Visible = False
    End If
Next

End Sub
Das ganze kommt ins "close" ereigniss (und nicht ins open), um zu verhindern dass der User durch "Makros abschalten" die Blätter zu sehen bekommt.

Gruß,
Klaus


 

Beiträge aus den Excel-Beispielen zum Thema "Die EXEL Arbeitsmappe verbergen"