Microsoft Excel

Herbers Excel/VBA-Archiv

Blattschutz

    Betrifft: Blattschutz von: Stefan
    Geschrieben am: 30.09.2003 08:36:43

    ich habe eine datei mit blattschutz. über einen button blende ich eine spalte ein und lasse eine zelle berechnen. mit einem zwieten button lösche ich die zelle wieder und blende die spalte wieder aus.
    mein problem ist, das das makro nur arbeitet, wenn ich es in vb starte. mit den buttons geht leider gar nix! kann mir da jemand helfen?

    Sub Berechnen()
        
        On Error Resume Next
        ActiveSheet.Unprotect "test"
     
        Columns("C:C").Select
        Selection.EntireColumn.Hidden = False
        
        Range("C1").Select
        ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
        Range("C1").Select
    
        ActiveSheet.Protect "test"
    
    End Sub
    


    Sub Löschen()
        
        On Error Resume Next
        ActiveSheet.Unprotect "test"
     
        Range("C1").Select
        Selection.ClearContents
        
        Columns("C:C").Select
        Selection.EntireColumn.Hidden = True
        
        ActiveSheet.Protect "test"
    
    End Sub
    

      


    Betrifft: AW: Blattschutz von: Bernhard
    Geschrieben am: 30.09.2003 09:01:22

    Hallo Stefan
    probier folgendes

    Sub Berechnen()
        
        On Error Resume Next
        'ActiveSheet.Unprotect "test" 
     
        Columns("C:C").Select
        ActiveSheet.Unprotect "test" 
        Selection.EntireColumn.Hidden = False
        
        Range("C1").Select
        ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
        Range("C1").Select
    
        ActiveSheet.Protect "test"
    
    End Sub
    


    Das Problem hatte ich auch schon.
    Problem ist wenn Du einen Butten hast wird mit Mausklick der Focus auf den Button gesetzt. Excel weis dann nicht das Active Sheet dein Arbeitsblatt ist und gibt eine Fehlermeldung.

    anderer Lösumngsansatz wäre:
    sheets(index).Unprotect "test"

    Gruß
    Bernhard


      


    Betrifft: Vielen Dank es funktioniert!!! von: Stefan
    Geschrieben am: 30.09.2003 09:06:00

    Danke


      


    Betrifft: AW: Blattschutz von: Marc
    Geschrieben am: 30.09.2003 09:36:17

    Hallo,
    man kann auch im Kontextmenü der Buttons einstellen, ob der Button den Fokus bekommen soll . ("TakeFocusOnClick")
    Aber dennoch muss das Sheet "unprotected" werden...
    Grüsse,
    Marc


     

    Beiträge aus den Excel-Beispielen zum Thema " Blattschutz"