İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də iş və ya iş kitabının qorunduğunu yoxlamaq üçün necə?

Müəyyən bir iş kitabının və ya iş kitabının Exceldə qorunub saxlanılmadığını yoxlamaq istəsəniz, bu yazı sizə kömək edə bilər.

İşin VBA kodu ilə qorunduğunu yoxlayın

İş kitabının VBA koduyla qorunduğunu yoxlayın


Excel-də bir dəfə bir iş kitabında bir çox iş kitabını asanlıqla qoruyun və ya qoruyun:

The Excel üçün Kutools's İş yerini qoruyunİş yerindən qorunma yardım proqramları Excel-də bir dəfə aktiv iş kitabında birdən çox iş kitabını asanlıqla qorumaq və ya qoruyub saxlamağa kömək edə bilər. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi pulsuz sınaq yükləyin!


arrow mavi sağ bubble İşin VBA kodu ilə qorunduğunu yoxlayın


Aşağıdakı VBA kodu, mövcud iş kitabında hansı iş səhifəsinin qorunan və ya qorunmadığını yoxlamaq üçün kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Aşağıdakı VBA kodunu Kod pencerəsinə köçürün və yapışdırın.

VBA kodu: İş səhifəsinin qorunduğu və ya olmadığını yoxlayın

Sub GetProtectedSheets()
    Dim sh As Worksheet
    Dim xSaveSht As Worksheet
    Dim xSaveToRg As Range
    Dim xSaveToRg1 As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    If xSaveToRg.Worksheet.ProtectContents Then
        If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result?", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
            Set xSaveSht = ThisWorkbook.Worksheets.Add
            Set xSaveToRg = xSaveSht.Cells(1)
        Else
            Exit Sub
        End If
    End If
    Set xSaveToRg = xSaveToRg.Cells(1)
    Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
    xSaveToRg.Value = "Protected worksheet"
    xSaveToRg1.Value = "Unprotected worksheet"
    Set xSaveToRg = xSaveToRg.Offset(1)
    Set xSaveToRg1 = xSaveToRg1.Offset(1)
    For Each sh In Worksheets
        If sh.Name <> xSaveSht.Name Then
            If sh.ProtectContents Then
                xSaveToRg.Value = sh.Name
                Set xSaveToRg = xSaveToRg.Offset(1)
            Else
                xSaveToRg1.Value = sh.Name
                Set xSaveToRg1 = xSaveToRg1.Offset(1)
            End If
        End If
    Next
End Sub

3. Basın F5 kodu açmaq üçün açar, sonra a Excel üçün Kutools informasiya qutusu açılır, yoxlama nəticələrini tapmaq üçün bir hüceyrəni seçin və nəhayət, basın OK düyməsini basın.

Qeydlər:

1. Bir qorunan iş səhifəsində seçdiyiniz hüceyrə, başqa Excel üçün Kutools dialoq açılacaq, basın OK düyməsini basın, yoxlama nəticəsində yeni yaradılmış iş səhifəsində saxlanılacaq.

2. Əksinə, seçilmiş hüceyrə qorunmamış bir işdədirsə, yoxlama nəticəsində dərhal seçilən aralıda göstərilir.

Aşağıdakı ekran görüntüsündəki yoxlama nəticəsini görə bilərsiniz:


arrow mavi sağ bubble İş kitabının VBA koduyla qorunduğunu yoxlayın

Ayrıca, aktiv bir iş kitabının VBA koduyla qorunduğunu və ya olmadığını kontrol edə bilərsiniz. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Aşağıdakı VBA kodunu Kod pencerəsinə köçürün və yapışdırın.

VBA kodu: İş kitabının qorunub saxlanılmadığını yoxlayın

Sub IsWorkbookProtected()
With ActiveWorkbook
  If .ProtectWindows Or .ProtectStructure Then
    MsgBox "This workbook is password protected"
  Else
    MsgBox "This workbook is not password protected"
  End If
End With
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

Çalışma kitabınıza əsaslanan aşağıdakı informasiya qutularından birini əldə edəcəksiniz.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.

Be the first to comment.