Új hozzászólás Aktív témák

• #37960 SzlobiG félisten

  Új Válasz 2018-05-02 17:16:27 #37960

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  SzlobiG

  félisten

  Üdv.

  Nagy koponyák segítsége kellene ismét.

  Adott egy Excel file és azon belül több lap amit egyszerre szeretnénk levédeni, nem külön, külön.

  Meg is van rá a mód ami az alábbi:

  Sub Protect_Unprotect()

Dim wSheet As Worksheet

Dim pw As String

pw = InputBox("Add meg a jelszót:")

For Each wSheet In Worksheets

With wSheet

If .ProtectContents = True Then

.Unprotect Password:=pw

Else

.Protect Password:=pw

End If

End With

Next wSheet

End Sub

  A gond az, hogy teljesen levédi a lapokat és nekünk a cellaformázást nem kéne. Megoldható ez valahogy, esetleg a program kód kiegészítésével aki tudja?

  Ugye a sima lapvédelemmel be lehet pipálni, hogy miket védjen le, de ezzel a program kóddal mindent levéd.

  Remélem érthető.

Új hozzászólás Aktív témák