<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><table border="1" cellspacing="0" cellpadding="8">
        <tr>
          <th>Bug ID</th>
          <td><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - The protection icon does not show in front of sheeet name when lock a sheet from LibreOffice BASIC."
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=133257">133257</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>The protection icon does not show in front of sheeet name when lock a sheet from LibreOffice BASIC.
          </td>
        </tr>

        <tr>
          <th>Product</th>
          <td>LibreOffice
          </td>
        </tr>

        <tr>
          <th>Version</th>
          <td>6.2.8.2 release
          </td>
        </tr>

        <tr>
          <th>Hardware</th>
          <td>x86-64 (AMD64)
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>Linux (All)
          </td>
        </tr>

        <tr>
          <th>Status</th>
          <td>UNCONFIRMED
          </td>
        </tr>

        <tr>
          <th>Severity</th>
          <td>normal
          </td>
        </tr>

        <tr>
          <th>Priority</th>
          <td>medium
          </td>
        </tr>

        <tr>
          <th>Component</th>
          <td>BASIC
          </td>
        </tr>

        <tr>
          <th>Assignee</th>
          <td>libreoffice-bugs@lists.freedesktop.org
          </td>
        </tr>

        <tr>
          <th>Reporter</th>
          <td>nukool@gmail.com
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Description:
Option Explicit
Sub LockThisSheet
    LockSheet("Sheet1")
End Sub

Function LockSheet(passedSheetname) 
    Dim oDoc        As Object : oDoc    = ThisComponent
    Dim oSheet      As Object : oSheet  =
oDoc.Sheets.getByName(passedSheetname)
    Dim pPassword   As String
    If IsMissing(pPassword) Then pPassword = ""
    oSheet.UnProtect(pPassword)
    oSheet.Protect(pPassword)
End Function

Cells are locked as needed but the protection icon does not show in front of
sheeet name unless the sheet is moved to another position.

Steps to Reproduce:
1.Run
Option Explicit
Sub LockThisSheet
    LockSheet("Sheet1")
End Sub

Function LockSheet(passedSheetname) 
    Dim oDoc        As Object : oDoc    = ThisComponent
    Dim oSheet      As Object : oSheet  =
oDoc.Sheets.getByName(passedSheetname)
    Dim pPassword   As String
    If IsMissing(pPassword) Then pPassword = ""
    oSheet.UnProtect(pPassword)
    oSheet.Protect(pPassword)
End Function
2. Cells are locked as needed.
3. The protection icon does not show in front of sheeet name.

Actual Results:
1. Cells are locked as needed.
2. The protection icon does not show in front of sheeet name.
3. The protection icon will show in front of sheeet name if the sheet is moved
to another position.

Expected Results:
The protection icon shows in front of sheeet name.


Reproducible: Always


User Profile Reset: No



Additional Info:
<a href="https://ask.libreoffice.org/en/question/245509/lo-basic-calc-the-protection-icon-does-not-show/">https://ask.libreoffice.org/en/question/245509/lo-basic-calc-the-protection-icon-does-not-show/</a></pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are the assignee for the bug.</li>
      </ul>
    </body>
</html>