如何在受保护的Excel工作表上启用单元格重新大小

我有一个基于其他行的值禁用某些行的macros，女巫工作正常

Private Sub Worksheet_Change(ByVal Target As Range) Call SecurityColumnsLookup(Target) End Sub Private Sub Workbook_Open(ByVal Target As Range) Call SecurityColumnsLookup(Target) End Sub Private Sub SecurityColumnsLookup(ByVal Target As Range) On Error GoTo MyErr Err.Clear ActiveSheet.Unprotect Application.EnableEvents = False Select Case Range("V" & (Target.Row)).Value //do stuff End Select ActiveSheet.Protect Application.EnableEvents = True Exit Sub MyErr: On Error Resume Next ActiveSheet.Protect Application.EnableEvents = True Exit Sub End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call SecurityColumnsLookup(Target) End Sub 

我想知道的是如何将代码添加到我的macros，以便允许用户重新调整他的行的大小，因为现在正在发生什么，当macros是活动的，我鼠标滑过单元格的大小图标不会出现

是否可以随时启用重新调整function？

谢谢

Answer 1

我发现我的问题的解决scheme，正如在这个链接中所解释的

http://www.thespreadsheetguru.com/the-code-vault/2014/2/21/protect-worksheet-but-allow-formatting-and-hiding-rows-columns

添加这个

  ActiveSheet.Protect , AllowFormattingColumns:=True, AllowFormattingRows:=True Application.EnableEvents = True 

将让我的macros启用resize选项！