Button.Eingable = False

[valeripf]

Hi Kann mir Schnell jemand Helfen

Ich Will

wenn xlVeryHidden Akteviert ist Dann CommnderButton.Eingablen = False

Wenn xlVeryHidden Deakteviert Dann CommanderButton.Eingablen = True

Public Sub Alle_Blatter()
    'Alle Blättern Anblenden
    Dim intI As Integer
    For intI = 1 To ActiveWorkbook.Worksheets.Count
        Worksheets(intI).Visible = True
    Next
End Sub

 

[Drogist]

Also,

Kann mir Schnell jemand Helfen

für schnelle Hilfe bietet sich immer an, einen kundigen Dienstleister zu Rate zu ziehen. Der wird dich dann auch gleich auf die Ungereimtheiten aufmerksam machen.

 

[Yaslaw]

Hab grad ide Excel-Library nicht auswendig im Kopf. Darum wiess ich auch grad nicht, für welches Attribut der Wert xlVeryHidden seine Gültigkeit hat.

Aber, Worksheets(intI).Visible = True setzt nur die Sichtbrkeit eines ganzen Worksheets.

 

[HonniCilest]

Hast du für jedes Worksheet einen CommanderButton oder nur für ein bestimmtes?

 

[valeripf]

Der Button ist in Arbeits Blatt Drin Schreibt in Fenster "=EINBETTEN("Forms.CommandButton.1";"")"

xlVeryHidden Ist für Ausblenden von Arbeis Blättern Sorry ich habe Falsche Code gepostern

1Mal So

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
    'Tabellen Blattern Ausblenden
    Worksheets("DatenBank").Visible = xlVeryHidden
    Worksheets("Info").Visible = xlVeryHidden
    Worksheets("Fehler").Visible = xlVeryHidden
    Call Alle_Ausblenden
End Sub

Sub Alle_Ausblenden()
    'Alle Blättern Ausblenden
    Dim wksSheet As Worksheet
    Dim intI As Integer
    For Each wksSheet In ThisWorkbook.Worksheets
        If wksSheet.Name <> "Start" Then
            wksSheet.Visible = xlSheetVeryHidden
        End If
    Next wksSheet
End Sub

Ich Will wenn Die Blättern Versteckt sind Soll Bestimte Button z.B (Userform) nicht mehr Funktionieren

 

[tombe]

Dann schreibe doch enfach am Ende von Alle_Ausblenden:

DeinButton.Enabled = False

irgendwoe muss es dann ja noch eine Funktion geben wo einzelne oder auch alle Blätter wieder eingeblendet werden. Dort setzt du dann einfach Enabled wieder auf True und der Button funktioniert wieder.

 

[valeripf]

In userform funktioniert nicht

Select Case Me.EingabeFeld.Value
        Case "0"
            Worksheets("DatenBank").Visible = True
            Worksheets("Info").Visible = True
            Worksheets("Fehler").Visible = True
            Worksheets("Start").Activate
            DBButton.Enabled = True
            Unload Me
        Case Else
            MsgBox "Falsche Passwort..."
            Me.EingabeFeld.Value = ""
            Me.EingabeFeld.SetFocus
    End Select
End Sub

DBButton " variable nicht definiert"

 

[tombe]

Nochmal ganz langsam.

1) Wo ist der Button, in einer Userform oder eingebettet in einer Tabelle?

2) Wie ist der genaue Name des Button?

 

[valeripf]

Button der Deaktivertern und Aktievieren Soll Ist in Tabelle
der heißt "DBButton" ist Befehlschaltfläsche Active x Steuerelement

einblendung von Tabellen geht über Userform mit passwort

 

[valeripf]

Ich habe Lösung gefunden

Worksheets("Start").DBButton.Enabled = True