EXCEL账务处理系统(用户名admin登陆密码123456)【精品】
Excel VBA编程 典型实例——设计工资管理系统安全密码
Excel VBA编程典型实例——设计工资管理系统安全密码在完成某个项目后，如果不希望其他人打开自己的程序，那么可以为Excel VBA程序添加安全保护。
安全保护可分为两种：一是保护文档，保护文档可使用Excel自带的文档加密功能，或者使用代码来控制文档的打开；二是保护程序源代码，在VBE 环境中，可通过保护工程来保护源代码不被查看，或者将代码封装到动态链接库（DDL）文件中。
下面将练习创建用户登录窗体，通过在窗体中输入安全密码来进入系统。
1．练习要点● 用户窗体● 使用控件● 保护工程● 代码2．操作步骤：（1）打开“员工工资录入.xlsm ”工作簿。
添加工作表Sheet4，并重命名为“登录”，然后设置工作表的样式，如图20-5所示。
图20-5 添加并设置工作表提 示选择工作表中所有单元格，在【开始】选择卡下，单击【字体】组中的“填充颜色”按钮，在【主题颜色】框中选择一种颜色（3）按Alt+F11进入VBE 窗口，然后添加新用户窗体UserForm2。
（4）在UserForm2中，添加一个“标签”控件、一个“文字框”控件和一个“按钮”控件。
然后，设置控件的属性，如图20-6所示。
图20-6 添加并设置控件提 示 设置UserForm2的Caption 属性的值为“密码保护”；设置Label1的Caption 属性的值为“请输入安全密码”；设置CommandButton1的的Caption 属性的值为“确定”；设置TextBox1的PasswordChar 属性的值为“*”（5）双击ThisWorkBook 对象，进入ThisWorkBook 对象的【代码】编辑窗口。
在左上角组合框中，选择WorkBook 对象，为其Open 事件添加代码，如图20-7所示。
单击 单击修改 选择选择图20-7 输入代码代码如下：Private Sub Workbook_Open()'最大化窗口Application.WindowState = xlMaximized'最大化当前工作表ActiveWindow.WindowState = xlMaximized'运行后隐藏工作表Sheet1.Visible = xlSheetHiddenSheet2.Visible = xlSheetHiddenSheet3.Visible = xlSheetHidden'显示用户登录UserForm2.Show 1End Sub（6）双击【确定】按钮，进入【代码】编辑窗体，并实现按钮的Click事件的代码，如图20-8所示。
Excel在财务管理中的应用实验报告
目录实验1：Excel 基础知识 (2)一、实验目的和实验内容 (2)二、实验步骤 (4)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (8)四、实验感想、意见和建议 (8)实验2：Excel数据基础 (9)一、实验目的和实验内容 (9)二、实验步骤 (10)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (15)四、实验感想、意见和建议 (15)实验4：Excel在筹资决策中应用 (16)一、实验目的和实验内容 (16)二、实验步骤 (16)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (19)四、实验感想、意见和建议 (19)实验5：长期负债筹资决策模型 (20)一、实验目的和实验内容 (20)二、实验步骤 (20)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (22)四、实验感想、意见和建议 (22)实验6：基于净现值的项目投资决策模型 (23)一、实验目的和实验内容 (23)二、实验步骤 (23)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (26)四、实验感想、意见和建议 (26)实验9： Excel在最优化问题中应用 (27)一、实验目的和实验内容 (27)二、实验步骤 (27)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (29)四、实验感想、意见和建议 (29)实验10： Excel在财务预测中应用 (30)一、实验目的和实验内容 (30)二、实验步骤 (30)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (33)四、实验感想、意见和建议 (33)实验11： Excel财务管理系统的建立 (34)一、实验目的和实验内容 (34)二、实验步骤 (34)三、实验中碰到了哪些问题？你是如何解决的？还有哪些问题没有解决？ (36)四、实验感想、意见和建议 (36)实验1：Excel 基础知识（1）在J3单元格中输入公式“=sum(C3:I3)”，利用填充柄向下填充至J10；在K3单元格中输入（1）将工作表命名为“工资表”（略）；选择H3，输入公式“=sum(E3:J3)”，并填充至H16。
财务人员必备的EXCEL超全秘籍
一、建立分类下拉列表填充项我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。
1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。
2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。
仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”……3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。
在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。
再选中需要输入企业名称的列(如D列)，再打开“数据有效性”对话框，选中“序列”选项后，在“来源”方框中输入公式：=INDIRECT(C1)，确定退出。
4.选中C列任意单元格(如C4)，单击右侧下拉按钮，选择相应的“企业类别”填入单元格中。
然后选中该单元格对应的D列单元格(如D4)，单击下拉按钮，即可从相应类别的企业名称列表中选择需要的企业名称填入该单元格中。
提示：在以后打印报表时，如果不需要打印“企业类别”列，可以选中该列，右击鼠标，选“隐藏”选项，将该列隐藏起来即可。
二、建立“常用文档”新菜单在菜单栏上新建一个“常用文档”菜单，将常用的工作簿文档添加到其中，方便随时调用。
1.在工具栏空白处右击鼠标，选“自定义”选项，打开“自定义”对话框。
在“命令”标签中，选中“类别”下的“新菜单”项，再将“命令”下面的“新菜单”拖到菜单栏。
按“更改所选内容”按钮，在弹出菜单的“命名”框中输入一个名称(如“常用文档”)。
2.再在“类别”下面任选一项(如“插入”选项)，在右边“命令”下面任选一项(如“超链接”选项)，将它拖到新菜单(常用文档)中，并仿照上面的操作对它进行命名(如“工资表”等)，建立第一个工作簿文档列表名称。
财务人员EXCEL表格应该是经常接触的
财务人员EXCEL表格应该是经常接触的，但是如果碰到表格设置了密码，又因时间长将密码忘记怎么办呢？下面就来介绍一个简单有快捷的EXCEL解密方法：1.打开要破解的EXCEL表格2.工具----宏----录制新宏----输入名字如:Macro20103.完了就得到一个空宏4.工具---宏----宏,选Macro2010 ,点编辑按钮5\删除窗口中的所有字符，替之为如下内容:Public Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algorithm modified for coverage' of workbook structure / windows passwords and for multiple passwords'' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"Adapted from Bob McCormick base code by" & _"Norman Harker and JE McGimpsey"Const HEADER As String = "AllInternalPasswords User Message"Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"Const REPBACK As String = DBLSPACE & "Please report failure " & _"to the microsoft.public.excel.programming newsgroup."Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _"now be free of all password protection, so make sure you:" & _DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _DBLSPACE & "Also, remember that the password was " & _"put there for a reason. Don't stuff up crucial formulas " & _"or data." & DBLSPACE & "Access and use of some data " & _"may be an offense. If in doubt, don't."Const MSGNOPWORDS1 As String = "There were no passwords on " & _"sheets, or workbook structure or windows." & AUTHORS & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst MSGTAKETIME As String = "After pressing OK button this " & _"will take some time." & DBLSPACE & "Amount of time " & _"depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE & _"Just be patient! Make me a coffee!" & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _"Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _"Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _"$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub6.关闭编辑窗口7.工具---宏-----宏,选AllInternalPasswords,运行,然后一直按确定,耐心等2分钟就好了. 来自: /139********/blog/item/a5a5d4ed9f26c7d8b31cb110.html。
通用Excel库存管理系统
通用Excel库存管理系统，最好用的Excel出入库管理表格库管易网站的表格版块有很多实用出入库管理表格，得到广大仓库管理同行的支持，经过分析与提取各个表格中的实用功能，专门制作了本套《通用Excel库存管理系统》表格。
包含仓库货物做账用到的入库、出库、汇总、报表等全部功能，适合绝大部分的仓库、商铺、网店的出入库管理。
使用前提：本表格使用VBA编程完成出入库的自动化处理，在使用前，请在Excel软件中启用宏，具体的方法可以参考Excel启用宏的方法这篇贴子，正确启用宏功能以后，关闭Excel软件，重新打开表格就可以正常使用了。
本贴子简要介绍Excel库存管理系统，让大家可以快速了解各个功能模板的使用方法，强烈建议您阅读本贴的使用教程，然后再开始使用Excel库存管理系统，这样可以少走很多弯路。
一、系统登录与主界面1、打开库存管理系统，首先看到的是登录界面，要求登录才可以进入系统管理。
系统内置了一个管理员账号：admin，初始密码：123。
在登陆界面点击'修改密码”可以改为您自己想用的密码。
如果想增加账号，请登陆系统后，在主界面中点击'用户申请〃，在弹出窗口中填写好用户名、密码等资料后确认就可以了。
2、成功登录库存管理系统，首先显示操作主界面，这里列出了所有的功能模块。
主界面“功能导航”区域共有12个按钮，对应着不同的管理功能，点击按钮就可以进入相应的功能界面进行操作。
二、货物信息与基础资料在开始做账前，需要完善货物信息与基础资料，在主界面点击'系统设置”按钮，进入设置工作表，界面分为左右两部分。
1、左面是货物（商品）的列表，里面已经输入了一些示例货物信息（1）编号：就是货物编码，就像人的身份证一样，编号是货物的唯一标识，每个货物必须有一个编号并且不能重复。
在制定编号时也可以根据企业的编码规则制定，也可以像示例数据那样直接使用顺序编号。
（2）货物名称、规格型号、单位、库别（分类）：请根据实际情况填写。
管理员初始密码是多少
管理员初始密码是多少在进行系统或应用程序的安装和配置时，通常会设定一个管理员账户，并为该账户设置一个初始密码。
管理员账户具有特权，可以对系统进行高级设置和管理操作。
然而，在开始使用新系统或应用程序之前，很多人都会困惑于管理员账户的初始密码是多少。
这篇文档将帮助您了解管理员初始密码的相关信息。
管理员账户和初始密码的重要性管理员账户是一个特殊的用户账户，其权限通常高于普通用户。
通过管理员账户，系统管理员可以管理和配置系统的各个方面，包括用户管理、权限控制、软件安装和更新、网络设置等。
因此，设置一个强密码以保护管理员账户至关重要。
服务器和系统的初始密码对于服务器和操作系统，其初始密码通常由系统管理员在安装过程中进行设定。
这样做是为了确保只有授权的人员可以访问和管理服务器。
初始密码的设定通常会在安装文档中详细说明，以提供给用户参考。
为了保证服务器和系统的安全性，初始密码通常要求具备一定的复杂性。
它通常包括字母、数字和特殊字符的组合，长度也要求在一定范围内。
同时，建议在安装系统后立即修改初始密码，以增加系统的安全性。
软件和应用程序的初始密码对于安装在服务器或计算机上的软件和应用程序，他们也会有一个初始管理员账户和密码。
这些初始密码通常由用户在安装过程中进行设定，以提供给用户参考。
然而，与服务器和操作系统不同，软件和应用程序的初始密码设置通常没有固定的规则。
一些软件和应用程序会提供一个默认的初始密码，而其他软件则需要用户自己进行设置。
在安装文档或用户手册中，通常会说明如何设置或找到管理员初始密码的方法。
更改管理员初始密码的方法为了增加系统和账户的安全性，建议用户在安装和配置完成后立即更改管理员初始密码。
更改初始密码的方法通常由操作系统、软件或应用程序提供。
对于操作系统，用户可以通过系统设置或控制面板中的“用户账户”选项来更改管理员密码。
对于大多数软件和应用程序，更改管理员密码的方法通常在用户手册或帮助文档中有详细说明。
财务工作交接必知的8个登录账号及密码
财务工作交接必知的8个登录账号及密码今天给一家企业做财务外包首次入场，需要和前任会计做各种交接，资料和做账逻辑我是没大关注，虽然这些是很重要的部分，由我的同事完成了。
我主要陷入N多账号和密码的交接中不能自拔，索性就加个班，梳理一下财务工作交接时都需要获取什么账户及密码，以及为什么要交接这些账户。
首先，要明确一点，现在都推行电子政务系统，以前线下办理的业务都逐步实现线上办理了。
虽然需要我们记录的账户密码多了许多，但是只要列清楚是什么，为什么以及密码和操作流程，那肯定是会大大提高我们的工作效率。
第一个：电子税务局登录账户及密码是个企业就要做账报税，所以，当你为这家企业服务时，肯定要将自己添加为办税员，方便操作。
当然，你也可以不添加，就是每次登录时找老板短信验证一下，只要老板不撅死你。
电子税务局的账号就是企业的纳税人识别号，五证合一后就是“统一社会信用代码”，相当于识别企业的唯一的“身份证号”，让上一个办税员通过“变更税务登记信息”可以添加新的办税员，添加成功后就可以使用自己的身份证号或手机号识别身份并登录了。
第二个：税控盘口令及密码是个企业都要开票，都应该开票。
税控盘相当于和税务局建立数据连接，开票时就要插卡，每月初抄卡才能报税，报完税清卡才能再开票，所以税控盘的口令及密码一定要知道。
第三个：工商信息更新端口的工商联络员变更企业每年1月1月-6月30日之间都要将上年度财务报表上传至“国家企业信用信息公示系统”，就是企查查点进去能查到的工商年报信息。
这个我也是今天第一次接触，差点忘了交接。
不过也Get 了一个新技能，工商联络员变更时要输入法人身份证号，结果输入后提示不一致，前方高能：第一代身份证是15位，第二代身份证是18位，输入18位不一致的时候，试试删除年份的前两位和身份证号的最后一位，奇迹就出现了，尤其是老板年龄大的话更容易出现这种情况。
【百度词条】第一代身份证是15位编码，二代身份证号码有18位数字，一代证比二代证少了3位数字。
个人所得税代扣代缴系统申报操作说明
个人所得税代扣代缴系统申报操作说明个人所得税代扣代缴系统是个单机版软件，所有的网络功能都不可用。
登陆用户名为admin，密码为123456，所有操作都使用此用户名进行操作，不要建立或使用其他用户名登陆，否则容易出问题。
软件中涉及到三种zip文件，04010000开头的客户端初始化反馈文件、SB06开头的申报文件和FK06开头的客户端反馈文件，这些zip文件名都不要改名，否则会申报或反馈不通过。
申报所有相关操作的总体流程大体分为以下几个步骤：（第一次使用此系统时）1、安装“个人所得税代扣代缴系统”或解压“个人所得税代扣代缴系统未设置文件夹”。
（第一次使用此系统时）2、进行设置向导，填写扣缴义务人信息并以介质导入方式导入客户端初始化反馈文件。
3、补全系统管理中的单位信息，填写或修改纳税人信息表。
4、填写正常工资薪金收入等相关报表。
5、生成申报数据。
6、系统管理->数据备份恢复->备份。
7、申报及反馈——介质申报方式——申报——导出申报文件（文件名为SB06....zip）。
8、插入USB棒，进入网上申报——扣缴个人所得税——代扣代缴——明细申报，上传申报文件SB06....zip。
（如果有税款）9、上传申报文件后5-10分钟后，进入网上申报——地方税费缴纳——缴纳税款。
10、建议3天后进入网上申报——扣缴个人所得税——代扣代缴——明细申报，下载“客户端反馈文件”（文件名为FK06....zip）（当月月底前）。
11、进入个人所得税代扣代缴系统，点击申报及反馈——介质申报方式——获取反馈——导入客户端反馈文件FK06 (i)一、第一次使用时需进行的操作：1、个人所得税代扣代缴系统安装，第一次安装，执行安装程序，一直点击“下一步”，直到“完成”；如果是升级安装，请按照“升级说明.doc”操作。
2、进入网上申报界面，点击左栏“个人所得税代扣代缴”，再点击右栏出现的“明细申报”，会弹出一个新的有上传、下载、查询按钮的窗口，点击“下载”，在文件类型中选择“客户端初始化反馈文件”或者“全部”，然后点击“查询”，点击查询出的客户端初始化文件后面的下载，保存此客户端初始化文件（文件名为040100003400008_JBXX_开头）到你的电脑中。