開啟工作簿,彈出彈窗輸入密碼,如果密碼錯誤則關閉工作簿
首先在 thisworkbook裡設定 當開啟工作簿時 執行**
**如下:
private sub workbook_beforeclose(cancel as boolean)
dim sht as worksheet
'隱藏所有表
for each sht in sheets
if sht.name <> 「登入介面」 then
sht.visible = xlsheetveryhidden
end if
next
end sub
private sub workbook_open()
dim i
i = inputbox(「請輸入密碼」)
if i = 「123」 then
sheet1.visible = xlsheetvisible
sheet2.visible = xlsheetvisible
sheet3.visible = xlsheetvisible
elseif i = 「456」 then
sheet4.visible = xlsheetvisible
sheet5.visible = xlsheetvisible
sheet6.visible = xlsheetvisible
else
msgbox 「密碼輸入錯誤」
thisworkbook.close
end if
end sub
這樣輸入123後 工作表才會顯示出123的內容
VBA 合併多個工作簿
合併多個工作薄，並以工作薄的名字給sheet表命名 每個工作薄只有一張表 subtest dimstr asstring dim wb as workbook str dir c users administrator desktop 6.3 6.7 xls for i 1 to100 set wb...
VBA 工作簿結構視窗保護
工作中經常遇到別人發來的 進行資料過濾，但針對有結構保護的工作簿無法插入新 輸出過濾內容，需要對工作簿狀態進行判斷，有保護的在原 指定位置輸出。主要針對狀態判斷 處理 可自行完善 sub 工作簿結構視窗保護 activeworkbook.protect structure true,windows ...
使用VBA合併多個Excel工作簿
有許多實現excel工作簿合併的方法，在 將多個工作簿中的資料合併到乙個工作簿 中介紹過合併工作簿的示例。下面再列舉幾個示例，供有興趣的朋友參考。例如，需要將多個excel工作簿中的工作表合併到乙個工作簿。這裡假設需要合併的工作簿在 d 示例 資料記錄 資料夾中，含有兩個工作簿test1.xls t...