請教各位前輩~關於限制列印分頁範圍的問題

kc001314

公司的EXCEL報表上 有Sheet1~40 共有(40個分頁)
目前是用密碼限制列印(語法碼如下)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pss As String
pss = InputBox("請輸入列印密碼")
If pss <> "***" Then '"***"=密碼
MsgBox "密碼錯誤 無法列印！", vbInformation + vbOKOnly, "系統提示"
Cancel = True
End If
End Sub
--------------------
問題來了!由於其他人員也要列印到其中的sheet20跟sheet40 這兩個分頁中的(A107:G146)
這問題的語法該怎麼寫呢?麻煩各位前輩教教我

GBKEE

回復 1# kc001314

1. Option Explicit
   
2. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
3.     Dim pss As String
   
4.     '其他人員也要列印到其中的 sheet20~sheet40 工作表於活頁簿的位置有依序排列
   
5.     If ActiveSheet.Index >= 20 Then Exit Sub   '允許印列
   
6.     pss = InputBox("請輸入列印密碼")
   
7.     If pss <> "***" Then '"***"=密碼
   
8.         MsgBox "密碼錯誤 無法列印！", vbInformation + vbOKOnly, "系統提示"
   
9.         Cancel = True
   
10.     End If
    
11. End Sub

複製代碼

kc001314

可以了!!好厲害
那要加入列印範圍該怎麼做呢