微信密码查看神器（免费找回微信密码软件）

　　微信密码查看神器（免费找回微信密码软件）
　　工作和生活当中，不可避免要用到一些账号密码，对于忘记力不佳的人来说，实在是一件头痛的事情。
　　密码作为一个入门口令，又不能随便告诉别人，记不住又不能让别人来帮助记住，这就比较麻烦。
　　其实，用Excel文档来记录，也很方便，就是要对这个密码文档做一些加密，只记住这一个密码就可以了。
　　当然了，这也不是万无一失的办法，至少是一种方法，可能采纳。密码管理
　　内容不是很多，主要包括：账户、密码、名称、编号、类别、账号、密码、网络地址、保密级别、使用状态、使用人、共享人、修改次数等。
　　比如名称分类有银行账户，手机，微信，QQ，邮箱，网站等等。
　　平时注册多了就难免忘记了，这也不是什么稀奇的事情，我就经常忘记。
　　这个工具很好地实现了密码保存，修改，查询功能。
　　手机可以找回密码，没错，我就经常这么做。
　　一个手机就可以解决的问题，为什么要用这个工具，其实我也不知道。
　　感觉很白痴的样子，甚至习惯了不记密码。
　　认真总结了一下，所有用到密码加起来，真的很不好记，也记不住那么。
　　如果设置一些有规律的密码，也许还可以试错几次成功登录。
　　但是，这种有规律的密码，一旦数量增加，就没有规律可循了。
　　添加信息
　　分别对要设置密码的类型，状态，共享人，进行设置。
　　为了更全面地记录，也可以增加其它项目，这就是只想到这些。
　　作为一个启发，制作并不严谨，一些可能出现的错误，也没有补漏。
　　不想做到极致，只想做一个过程。
　　这种很不负责任的想法，让人没有思考的动力。
　　信息修改
　　修改只开放了账号和密码两个项目，其它就不用改了，实在不想要就注销，重新设置。
　　这里没有做删除用，一旦设置就不要修改了。
　　为长久保存，有些数据就是错了，也要保存错的内容。代码
　　搜索代码PrivateSubT0Change（）DimwAsWorksheetDimwRowAsInteger，wColAsIntegerDimwRAsRange，wRaAsRangeSetwThisWorkbook。Worksheets（passwords）w。ActivatewColw。Range（A1）。End（xlToRight）。ColumnwRoww。Range（E65535）。End（xlUp）。RowSetwRw。Range（E2：Eamp；wRow）DimxAsRangeMe。ListView1。ListItems。ClearForEachxInwRSetwRawR。Find（Me。T0。Value，LookIn：xlValues，lookat：xlPart）DimlobjAsObject，aDrAsString，wRsAsRangeIfNotwRaIsNothingThenIfx。ValuewRa。ValueThenWithMe。ListView1DimiAsInteger，cAsIntegeriwRa。RowSetlobj。ListItems。AddWithlobj。Textw。Cells（i，1）。ValueForc1TowCol1。SubItems（c）w。Cells（i，c1）。ValueNextcEndWithEndWithEndIfEndIfNextxEndSub
　　注销代码PrivateSubCommandButton3Click（）DimKnameAsString，keyIDAsString，ValuesAsStringKnameMe。ListView1。SelectedItem。SubItems（1）keyIDMe。ListView1。SelectedItem。SubItems（2）ValuesMe。ListView1。SelectedItem。SubItems（8）DimunKAsIntegerDimwAsWorksheetDimwRowAsInteger，wColAsIntegerDimwRAsRange，wRaAsRangeSetwThisWorkbook。Worksheets（passwords）w。ActivatewRoww。Range（A65535）。End（xlUp）。RowSetwRRange（Cells（2，3），Cells（wRow，3））ForEachwRaInwRIfwRa。ValuekeyIDThenunKMsgBox（确定要注销？amp；VBA。vbCrLfamp；Knameamp；VBA。vbCrLfamp；keyID，vbYesNo，提示）IfunKlt；gt；6ThenExitSubw。Cells（wRa。Row，9）。Value已经注销ThisWorkbook。SaveUnloadMeUserForm1。ShowEndIfNextwRa