返回列表 上一主題 發帖

[原創] 用其他方法保護工作表

本帖最後由 GBKEE 於 2011-1-30 16:54 編輯

開啟檔案後 執行此程序 ,可明暸阿吉兄的作法.
  1. Sub Ex()
  2.      Dim Sh As Worksheet, Excel4MacroSheet$
  3.      With ActiveWorkbook
  4.         .Unprotect "11686106"
  5.         For Each Sh In .Sheets
  6.             If Sh.Type = xlExcel4MacroSheet Then
  7.                 Excel4MacroSheet = Sh.name
  8.                 Sh.Visible = True
  9.             End If
  10.         Next
  11.         With .Sheets.Add(Type:=xlExcel4MacroSheet)
  12.             ActiveWorkbook.Sheets(Excel4MacroSheet).Cells.Copy .[a1]
  13.             .Columns.Hidden = False
  14.             .Rows.Hidden = False
  15.          End With
  16.     End With
  17. End Sub
複製代碼

TOP

回復 8# lin
  1. Option Explicit
  2. Sub Ex()
  3.     ActiveWindow.DisplayWorkbookTabs = False
  4.     'DisplayWorkbookTabs 屬性 如果顯示活頁簿索引標籤則為 True。讀/寫 Boolean。

  5.     '或是
  6.    
  7.     ActiveWindow.TabRatio = 0
  8.    
  9.     'TabRatio 屬性 傳回或設定視窗活頁簿索引標籤寬度與視窗水平捲軸寬度比例 (可為 0 (零) 和 1 之間的數字;預設值為 0.6)。讀/寫 Double。
  10.     '備註
  11.     '如果 DisplayWorkbookTabs 設定為 False,則該屬性沒有作用 (保留其值,但該值不影響螢幕顯示)。
  12. End Sub
複製代碼

TOP

回復 12# HUNGCHILIN

回復  lin
GBKEE 發表於 2012/12/14 14:16    '或是        ActiveWindow.TabRatio = 0
1

評分人數

TOP

        靜思自在 : 虛空有盡.我願無窮,發願容易行願難。
返回列表 上一主題