Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

vba - Jak odblokować formatowanie tekstu w komórkach

lisekx 01 Wrz 2015 18:20 642 8
  • #1 01 Wrz 2015 18:20
    lisekx
    Poziom 14  

    Jak odblokować formatowanie tekstu w komórkach w jednym z arkuszy zablokowanych takim kodem wpisanym w ThisWorkbook

    Code:
    Private Sub Workbook_Open()
    
       
      Dim wks As Worksheet
      For Each wks In ThisWorkbook.Worksheets
        wks.Protect Password:="x", _
                    DrawingObjects:=True, _
                    Contents:=True, _
                    Scenarios:=True, _
                    UserInterfaceOnly:=True
      Next wks
    End Sub

    0 8
  • #2 01 Wrz 2015 20:22
    JRV
    Specjalista - VBA, Excel

    Code:
    Private Sub Workbook_Open() 
    
       
      Dim wks As Worksheet
      For Each wks In ThisWorkbook.Worksheets
      If wks.Name <> "nazwa tego jednego arkusza" Then
        wks.Protect Password:="x", _
                    DrawingObjects:=True, _
                    Contents:=True, _
                    Scenarios:=True, _
                    UserInterfaceOnly:=True
      End If
      Next wks
    End Sub

    0
  • #3 01 Wrz 2015 21:12
    lisekx
    Poziom 14  

    nic to nie dało, ikony nadal są nieaktywne, dodatkowo teraz przy korzystaniu z makr w innych arkuszach, gdzie korzystałem z blokady

    Code:
    ActiveSheet.Unprotect Password:="x"
    
    ActiveSheet.Protect Password:="x"

    wyskakują błędy

    0
  • #4 02 Wrz 2015 09:43
    michson88
    Poziom 10  

    @lisekx przed zablokowaniem na hasło arkuszy, zaznacz interesujący Cię zakres komórek =>kliknij prawym przyciskiem myszy => przejdź do zakładki Ochrona => Odznacz opcję Zablokuj => OK. Następnie zablokuj arkusze. Od teraz Twój zakres będzie odblokowany mimo blokady arkuszy.

    0
  • #5 02 Wrz 2015 14:41
    lisekx
    Poziom 14  

    Sprawdzałem już to, arkusz mam odblokowany, ale formatowanie tekstu nadal jest nieaktywne

    0
  • #7 02 Wrz 2015 21:55
    lisekx
    Poziom 14  

    Wzór w załączniku
    Chciałbym aby formatowanie w arkuszu Arkusz1 było odblokowane, a w arkuszu dane zablokowane

    0
  • Pomocny post
    #8 03 Wrz 2015 06:47
    JRV
    Specjalista - VBA, Excel

    Chcesz odblokować tylko formatowanie tekstu w komórkach ? (dane nie zmieniac)
    Kod w post #2 odblokuje wszystko... Ale... te makra do przyciskow(Pobierz_Arkusz1, Usuñ_Arkusz1) to odblokowanie usune.
    Uzyj przy blokowaniu kod

    Code:
    ActiveSheet.Protect Password:="x", AllowFormattingCells:=True

    1
  • #9 03 Wrz 2015 16:43
    lisekx
    Poziom 14  

    Dzięki o to chodziło

    0