Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com protegir tots els llibres d'una carpeta alhora a Excel?

En Excel, podeu protegir un llibre per evitar que altres usuaris l'editin, però heu imaginat alguna vegada per protegir diversos llibres alhora? Aquí us presento alguns trucs sobre la protecció de tots els llibres d'una carpeta i diversos fulls d'un llibre d'Excel.

Protegeix els llibres en una carpeta alhora amb VBA

Protegiu diversos fulls alhora amb Kutools for Excel bona idea 3


fletxa blau dreta bombolla Protegeix els llibres en una carpeta alhora amb VBA

Per protegir els llibres en una carpeta específica, podeu aplicar un codi de macro per resoldre.

1. Activa un llibre nou i premeu Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacionsns finestra i feu clic Insereix > mòdule, i enganxeu per sota del codi al Mòduls guió.

VBA: protegir els llibres en una carpeta.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

doc protegeix tots els llibres una carpeta 1

2. Premeu F5 clau i a Seleccioneu una carpeta apareix la finestra per seleccionar una carpeta per protegir totes les seves fulles de treball.
doc protegeix tots els llibres una carpeta 2

3. clic OK i apareix un quadre de diàleg per introduir la contrasenya per protegir llibres.
doc protegeix tots els llibres una carpeta 3

4. clic OK, apareix un quadre de diàleg per recordar-vos que tots els llibres de treball de la carpeta seleccionada s'han protegit amb èxit amb una sola contrasenya.
doc protegeix tots els llibres una carpeta 4

Quan obriu els llibres que heu protegit per codi anterior, apareix un quadre de diàleg per introduir la contrasenya. Mostra la captura de pantalla:
doc protegeix tots els llibres una carpeta 5

Punta: Aquest codi funciona per 2007 o una versió Excel superior, si voleu aplicar-la per protegir la versió inferior, podeu canviar-la xFile = "* .xls" a xFile = "* .xlsx" en el codi.


fletxa blau dreta bombolla Protegiu diversos fulls alhora amb Kutools for Excel

De fet, serà més freqüent protegir diversos fulls en un llibre en el nostre treball diari. Però a Excel, heu de protegir les fulles una per una amb la funció incorporada. No obstant això, hi ha una poderosa eina: Kutools for Excel, el seu Protegeix el full de treball La utilitat us pot ajudar a protegir tots els fulls o fulls seleccionats del llibre a la vegada.

Kutools for Excel, amb més de 120 Funcions Excel útils, milloren la vostra eficiència laboral i estalvien el temps de treball.

Després de Instal·lació gratuïta Kutools for Excel, feu el següent:

1. Activeu el llibre que voleu protegir els seus fulls i feu clic a empresa > Protegeix el full de treball. Mostra la captura de pantalla:
doc protegeix tots els llibres una carpeta 6

2. A la Protegeix el full de treball diàleg, podeu consultar els fulls que vulgueu protegir segons necessiteu a la llista. Mostra la captura de pantalla:
doc protegeix tots els llibres una carpeta 7

3. clic Ok, i apareix un altre diàleg perquè introduïu i torneu a escriure la contrasenya, vegeu la captura de pantalla:
doc protegeix tots els llibres una carpeta 8

4. clic Ok, i apareix un quadre de diàleg per recordar-vos que protegiu amb èxit fulls de càlcul.
doc protegeix tots els llibres una carpeta 9

Per no protegir aquests fulls, només heu de fer clic empresa > Desenrotlla el full de càlcul per introduir la contrasenya per desprotegir.
doc protegeix tots els llibres una carpeta 10

doc descarregueu 1



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mary · 10 months ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 1 years ago
    I'm getting a syntax error for the following: <span style="background-color...
  • To post as a guest, your comment is unpublished.
    ckshah · 2 years ago
    workbook protect ...great program....
    very helpful